home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
byt86feb.arc
/
VISUAL.LBR
/
FIB
next >
Wrap
Text File
|
1986-04-11
|
128b
|
2 lines
(defun fib (x) (if (< x 2) 1 (+ (fib (- x 1)) (fib (- x 2)))))